D_chk_reg_moban.asp 落叶冰点万能企业网站内容管理系统 V9.1 - ASP源码程序

www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminModelCustomPage\D_chk_reg_moban.asp

    <%


'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************


%>



<htmL>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" /><LINK href="../css.css" type=text/css rel=stylesheet>
<%

dir_set="../../"


%>


<!--#include file=../../inc/conn.asp-->
<!--#include file=../../inc/Functionb.asp-->

<!--#include file=../../inc/ajaxLIB.asp-->

<!--#include file=../inc/checkadmin2.asp-->

<!--#include file=../../inc/functionFiless.asp-->
<!--#include file=../../inc/ND_class_function.asp-->


<script src="../../inc/admin.js" type="text/javascript"></script>




<%
AJAXshowLoader()

%>
<%


if find_dataw("qitashezhi123","0",6)<>"1" and qx_if_max=0 then
response.redirect "../D_suodinguser.asp"
end if

%>

        <%
mpp=request("mbpath")


set filea=new Cls_FSO
set fileb=new DosAsp 



mpp=trim(mpp)

Dim regEx
Set regEx = New RegExp ' 建立正则表达式。 
regEx.Pattern = "^([^(\/\\)]+(\/|)){1,}$|^[^(\/\\)]+$" ' 设置模式。 
regEx.IgnoreCase = False ' 设置是否区分大小写。 
retVal = regEx.Test(mpp) ' 执行搜索测试。 







If retVal<>true Then 
%>



<script language=javascript>
alert("模板文件夹路径 的格式不对!,参考格式: templates 或 templates/");



history.go(-1);

</script>

<%



else

if right(mpp,1)="/" then
mpp=left(mpp,len(mpp)-1)

end if





if filea.ReportFolderStatus(server.mappath("../../templates/"&mpp))=1 then





set rs1=server.CreateObject("adodb.recordset")
       
rs1.open "select * from ND_templates_folder_reg where templates_folder_path_name='"&mpp&"'",conn,1,3



if rs1.eof or rs1.bof then



response.redirect "D_chk2_reg_moban.asp?mpath="&mpp




else

%>

<script language=javascript>
alert("注册失败,因为此模板文件夹已被注册过");



history.go(-1);

</script>

<%

end if





else







%>



<script language=javascript>
alert("注册失败,因为此模板文件夹不存在");



history.go(-1);

</script>


<%

end if
end if


%>
        
            


                    



<%
AJAXcloseLoader()
%>
</html>